home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / showprefs.sirexx < prev    next >
Text File  |  1997-08-28  |  2KB  |  93 lines
  1. /* Display the current prefs settings */
  2.  
  3. options results
  4. signal on error
  5.  
  6. address 'INSPECTOR.1'
  7.  
  8. /* The result will be <number><space><text>
  9.  
  10.    If you want to parse that result, the first element will be the
  11.    your sort method number (needed if you want to SetPrefs), while the 
  12.    rest will be some plain english name.
  13. */
  14.  
  15. Say 'Sort Methods:'
  16. Say ' '
  17.  
  18. GetPrefs LibDevSort ; Say 'Libs & Devs: '||result
  19. GetPrefs MountSort ; Say 'Mount: '||result
  20. GetPrefs ResidentSort ; Say 'Resident Modules: '||result
  21. GetPrefs SemPortSort ; Say 'Semaphores & Message Ports: '||result
  22. GetPrefs TaskSort ; Say 'Tasks: '||result
  23. GetPrefs AssignSort ; Say 'Assigns: '||result
  24. GetPrefs ScreenModeSort ; Say 'Screenmodes: '||result
  25.  
  26. Say ' '
  27. Say ' '
  28.  
  29.  
  30.  
  31. /* Returns "On" or "Off" */
  32.  
  33. Say 'Options:'
  34. Say ' '
  35.  
  36.  
  37. GetPrefs InitialDisplay ; Say 'Initial Displayed List: '||result
  38. GetPrefs Deallocate ; Say 'Resource Deallocation: '||result
  39. GetPrefs Confirm ; Say 'Confirm Actions: '||result
  40. GetPrefs StripPath ; Say 'Strip process paths: '||result
  41. GetPrefs OpenMore ; Say 'Open the More Window at Startup: '||result
  42. GetPrefs Menufy ; Say 'Menufy when iconify: '||result
  43. GetPrefs KillRequesters ; Say 'Kill DOS Requesters: '||result
  44. GetPrefs RamLocks ; Say 'Scan RAM: for Locks: '||result
  45. GetPrefs StartIconified ; Say 'Start Iconified: '||result
  46. GetPrefs FormatHexValues ; Say 'Format hex values: '||result
  47. GetPrefs DoubleClickForMore; Say 'DoubleClick opens More window: '||result
  48. GetPrefs UseButtonArray ; Say 'Use the button array: '||result
  49. GetPrefs PopupHelp ; Say 'Popup Help for the button array: '||result
  50.  
  51. Say ' '
  52. Say ' '
  53.  
  54.  
  55. /* Returns plain values */
  56.  
  57. Say 'Main Window coordinates:'
  58. Say ' '
  59.  
  60. GetPrefs WinX ; x = result
  61. GetPrefs WinY ; y = result
  62. GetPrefs WinWidth ; w = result
  63. GetPrefs WinHeight ; h = result
  64.  
  65. Say 'Main window: ('||w||' x '||h||') at ('||x||','||y||')'
  66.  
  67.  
  68. Say ' '
  69. Say ' '
  70.  
  71. Say 'More Window coordinates:'
  72. Say ' '
  73.  
  74. GetPrefs MoreWinX ; x = result
  75. GetPrefs MoreWinY ; y = result
  76. GetPrefs MoreWinWidth ; w = result
  77. GetPrefs MoreWinHeight ; h = result
  78.  
  79. Say 'More window: ('||w||' x '||h||') at ('||x||','||y||')'
  80.  
  81.  
  82. Say ' '
  83. Say ' '
  84.  
  85. Say 'AppIcon Coordinates:'
  86. Say ' '
  87.  
  88. GetPrefs IconX ; x = result
  89. GetPrefs IconY ; y = result
  90.  
  91. Say 'AppIcon will appear at ('||x||','||y||')'
  92.  
  93.